


Namespace Kardex
Public Class OrdenCompraProducto



 Public Function Combo(ByVal vTodos As Boolean, Optional ByVal vmensaje As String = "Todos") As Entity.Kardex.OrdenCompraProductoCol
dim objCol as  New entity.Kardex.OrdenCompraProductoCol
dim obj as  New Data.Kardex.OrdenCompraProducto
            objCol = obj.Listar("", _
              -1, _
              -1, _
              -1, _
              0.0, _
              0.0, _
              0.0, _
              0.0, _
              0.0)
            If vTodos Then
                Dim ent As New Entity.Kardex.OrdenCompraProducto( _
                  -1, _
                  vmensaje, _
                  -1, _
                  0.0, _
                  0.0, _
                  0.0, _
                  0.0, _
                  0.0)
                objCol.AddPrimero(ent)
            End If
            Return objCol
        End Function


        '***************************


        Public Function Listar(ByVal OrdenCompraProductoId As Integer) As Entity.Kardex.OrdenCompraProducto

            Dim objEnt As New entity.Kardex.OrdenCompraProducto
            Dim obj As New Data.Kardex.OrdenCompraProducto
            Return obj.Listar(OrdenCompraProductoId)

        End Function


        '***************************



        Public Function Listar( _
          ByVal OrdenCompraProductoId As Integer, _
          ByVal ProductoId As Integer, _
          ByVal Cantidad As Integer, _
          ByVal PrecioUnitario As Double, _
          ByVal SubTotal As Double, _
          ByVal Igv_porcentaje As Double, _
          ByVal Igv As Double, _
          ByVal Total As Double) _
        As Entity.Kardex.OrdenCompraProductoCol

            Dim objCol As New entity.Kardex.OrdenCompraProductoCol
            Dim obj As New Data.Kardex.OrdenCompraProducto
            Return obj.listar("", _
              OrdenCompraProductoId, _
              ProductoId, _
              Cantidad, _
              PrecioUnitario, _
              SubTotal, _
              Igv_porcentaje, _
              Igv, _
              Total)

        End Function


        '***************************


        Public Function Grabar( _
          ByVal OrdenCompraProductoId As Integer, _
          ByVal ProductoId As Integer, _
          ByVal Cantidad As Integer, _
          ByVal PrecioUnitario As Double, _
          ByVal SubTotal As Double, _
          ByVal Igv_porcentaje As Double, _
          ByVal Igv As Double, _
          ByVal Total As Double, _
        ByVal vUSuario As Integer) As Integer

            Dim _codigo As Integer = -1
            Dim obj As New Data.Kardex.OrdenCompraProducto
            If OrdenCompraProductoId = -1 Then
                _codigo = obj.insert("ins", _
                  OrdenCompraProductoId, _
                  ProductoId, _
                  Cantidad, _
                  PrecioUnitario, _
                  SubTotal, _
                  Igv_porcentaje, _
                  Igv, _
                  Total, _
                 vUSuario)
            Else
                _codigo = obj.update("upd", _
                  OrdenCompraProductoId, _
                  ProductoId, _
                  Cantidad, _
                  PrecioUnitario, _
                  SubTotal, _
                  Igv_porcentaje, _
                  Igv, _
                  Total, _
                 vUSuario)
            End If
            Return _codigo

        End Function


        '***************************


        Public Function Grabar(ByVal vOrdenCompraProducto As Entity.Kardex.OrdenCompraProducto, ByVal vUsuario As Integer) As Integer

            Dim _codigo As Integer = -1
            Dim obj As New Data.Kardex.OrdenCompraProducto
            If vOrdenCompraProducto.ProductoId = -1 Then
                _codigo = obj.Insert("ins", _
                   vOrdenCompraProducto.OrdenCompraProductoId, _
                   vOrdenCompraProducto.ProductoId, _
                   vOrdenCompraProducto.Cantidad, _
                   vOrdenCompraProducto.PrecioUnitario, _
                   vOrdenCompraProducto.SubTotal, _
                   vOrdenCompraProducto.Igv_porcentaje, _
                   vOrdenCompraProducto.Igv, _
                   vOrdenCompraProducto.Total, _
               vUsuario)
            Else
                _codigo = obj.Update("", _
                   vOrdenCompraProducto.OrdenCompraProductoId, _
                   vOrdenCompraProducto.ProductoId, _
                   vOrdenCompraProducto.Cantidad, _
                   vOrdenCompraProducto.PrecioUnitario, _
                   vOrdenCompraProducto.SubTotal, _
                   vOrdenCompraProducto.Igv_porcentaje, _
                   vOrdenCompraProducto.Igv, _
                   vOrdenCompraProducto.Total, _
                 vUSuario)
            End If
            Return _codigo

        End Function


        '***************************


        Public Function Insertar( _
          ByVal OrdenCompraProductoId As Integer, _
          ByVal ProductoId As Integer, _
          ByVal Cantidad As Integer, _
          ByVal PrecioUnitario As Double, _
          ByVal SubTotal As Double, _
          ByVal Igv_porcentaje As Double, _
          ByVal Igv As Double, _
          ByVal Total As Double, _
        ByVal vUSuario As Integer) As Integer

            Dim _codigo As Integer = -1
            Dim obj As New Data.Kardex.OrdenCompraProducto
            _codigo = obj.insert("", _
              OrdenCompraProductoId, _
              ProductoId, _
              Cantidad, _
              PrecioUnitario, _
              SubTotal, _
              Igv_porcentaje, _
              Igv, _
              Total, _
             vUSuario)
            Return _codigo

        End Function


        '***************************


        Public Function Updatear( _
          ByVal OrdenCompraProductoId As Integer, _
          ByVal ProductoId As Integer, _
          ByVal Cantidad As Integer, _
          ByVal PrecioUnitario As Double, _
          ByVal SubTotal As Double, _
          ByVal Igv_porcentaje As Double, _
          ByVal Igv As Double, _
          ByVal Total As Double, _
        ByVal vUSuario As Integer) As Integer

            Dim _codigo As Integer = -1
            Dim obj As New Data.Kardex.OrdenCompraProducto
            _codigo = obj.Update("", _
              OrdenCompraProductoId, _
              ProductoId, _
              Cantidad, _
              PrecioUnitario, _
              SubTotal, _
              Igv_porcentaje, _
              Igv, _
              Total, _
             vUSuario)
            Return _codigo

        End Function


'***************************


public Function ELiminar(  OrdenCompraProductoId as integer,vusuario as integer ,optional vopcion as string="Delete") as integer
dim _codigo as integer =-1
dim obj as  New Data.Kardex.OrdenCompraProducto
_codigo= obj.Eliminar( "vopcion", OrdenCompraProductoId ,vusuario)
return _codigo

End Function

End Class



end namespace

